home *** CD-ROM | disk | FTP | other *** search
- Free Disk Space Accessory
-
- Written in Personal Pascal
- Modified by:
- Robert Balay
- 11 Sharolyn St.
- Sumter, SC. 29154
- 74716,101
- (803) 494-3580
-
- The enclosed source files will, when compiled, produce a
- desktop accessory that allows you to check the amount of free disk
- space available on your drives. This is a useful utility for
- those who use a terminal program, like Flash, which doesn't have a
- provision for checking disk free space.
- There are two versions enclosed. FREEDR5M.PAS will produce
- an accessory that will work in High or Medium resolutions and will
- show the amount of free disk space in bytes for drives A through
- E. The other version, FREEDR2.PAS will produce an accessory that
- will work in low or medium resolution and show only drives A and
- B.
- To call the accessory from an application, or from the GEM
- desktop, access the desk menu and click once on 'Free Disk Space'.
- A window will appear and show free bytes on each drive. To check
- another set of disks, merely click on the move bar at the top of
- the window and the accessory will recheck each drive.
- If you don't have two drives attached to the system, you will
- get a dialog box asking you to "Insert Disk B into Drive A:". If
- you don't like this set up, you can modify the source code and
- recompile. The procedure that controls how many disks are
- accessed is "Get_DF". Simply remove a set of instructions, as
- required. The width and height of the window are set at the
- beginning of the source code as constants.
- Credit for most of the program should go to David Plotkin,
- whose Desktop Clock in COMPUTE!'s Atari ST magazine, February
- 1987, Issue 3, Vol 2, No. 1, serves as a shell for this accessory.
- Additionally, the routine to get the amount of free disk space was
- written by _______________ and is in the public domain both on the
- OSS BBS and on CompuServe. I merely made a few nips and tucks
- here and there, threw away some fat, created a long_integer to
- string conversion routine, changed the names to protect the
- innocent, and voila! Hope it serves you well... Keep in touch...
-